🐪 firstname.pl (Perl) 7.3 KB 2015-10-11
Perl module for firstname
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $pass = new String::Random;
my $LX = new HTML::LinkExtractor(undef,undef,1);
my $strip = HTML::Strip->new();
#my $SourceFolder = '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder = '/home/sumy/compressed/tmp/name/www.firstname.de/Vorname/';
my $string;
our $rcount = 0;
our $count = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");
#eval {
... [truncated, 219 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "firstname.pl",
"description": "Perl module for firstname",
"dateModified": "2015-10-11",
"dateCreated": "2025-03-23",
"contentSize": "7.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/firstname.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/"
}
🐪 namepedia.pl (Perl) 8.0 KB 2015-10-11
Perl module for namepedia
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $pass = new String::Random;
my $LX = new HTML::LinkExtractor(undef,undef,1);
my $strip = HTML::Strip->new();
#my $SourceFolder = '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder = '/home/sumy/compressed/tmp/name/www.namepedia.org';
my $string;
our $rcount = 0;
our $count = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");
#eval {
... [truncated, 227 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "namepedia.pl",
"description": "Perl module for namepedia",
"dateModified": "2015-10-11",
"dateCreated": "2025-03-23",
"contentSize": "8.0 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/namepedia.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/"
}
🐪 omnastik.pl (Perl) 7.5 KB 2015-10-11
Perl module for omnastik
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $pass = new String::Random;
my $LX = new HTML::LinkExtractor(undef,undef,1);
my $strip = HTML::Strip->new();
#my $SourceFolder = '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder = '/home/sumy/compressed/tmp/name/www.onomastik.com/Vornamen-Lexikon/';
my $string;
our $rcount = 0;
our $count = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");
#eval {
... [truncated, 223 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "omnastik.pl",
"description": "Perl module for omnastik",
"dateModified": "2015-10-11",
"dateCreated": "2025-03-23",
"contentSize": "7.5 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/omnastik.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/"
}
🐪 vornamenarchiv.pl (Perl) 7.3 KB 2015-10-11
Perl module for vornamenarchiv
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52 | #!/usr/bin/perl
#sleep 25000;
###########################
### Autor: Sebastian Enger / B.Sc.
### Copyright: Sebastian Enger
### Licence: BSD
### Version: 1.1.b - 20080716@19.Uhr
### Contact: sebastian.enger@gmail.com | icq: 135846444
### Latest Version: PENDRIVE:\Programming\Perl\IncrementalBackup
###########################
use strict;
use DBI;
use File::Find; # perl -MCPAN -e 'force install "File::Find"'
use File::Copy; # perl -MCPAN -e 'force install "File::Copy"'
use File::Path; # perl -MCPAN -e 'force install "File::Path"'
#use XML::Code; # perl -MCPAN -e 'force install "Curses"'
use File::Basename;
use Data::Dumper;
use String::Random; # perl -MCPAN -e 'force install "String::Random"'
use Digest::SHA qw(sha512_hex);
use Encode qw(encode decode);
use HTML::LinkExtractor; # perl -MCPAN -e 'force install "HTML::LinkExtractor"'
# perl -MCPAN -e 'force install "URI"'
use HTML::Strip; # perl -MCPAN -e 'force install "HTML::Strip"'
my $scriptname = basename($0);
my $pass = new String::Random;
my $LX = new HTML::LinkExtractor(undef,undef,1);
my $strip = HTML::Strip->new();
#my $SourceFolder = '/home/sumy/db/synonyme.woxikon.de/synonyme/gut.php';
my $SourceFolder = '/home/sumy/compressed/tmp/name/www.firstname.de/Vorname/';
my $string;
our $rcount = 0;
our $count = 0;
my $Hash;
my $dbh;
my %Hash = ();
##system("mysqldump -u root -pTesTer!2399 -f --skip-skip-lock-tables buzzerstar > buzzerstarv3.sql");exit;
my $enc = 'latin1'; # in dieser Kodierung ist das Script gespeichert
unlink "text/logfile_$scriptname.txt";
open(L,">text/logfile_$scriptname.txt");
binmode(L, ":$enc");
#eval {
... [truncated, 219 more lines] ...
|
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "vornamenarchiv.pl",
"description": "Perl module for vornamenarchiv",
"dateModified": "2015-10-11",
"dateCreated": "2025-03-23",
"contentSize": "7.3 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/vornamenarchiv.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/"
}
🐪 vornamencom.pl (Perl) 7.6 KB 2015-10-11
Perl module for vornamencom
{
"@context": "https://schema.org",
"@type": "SoftwareSourceCode",
"name": "vornamencom.pl",
"description": "Perl module for vornamencom",
"dateModified": "2015-10-11",
"dateCreated": "2025-03-23",
"contentSize": "7.6 KB",
"contentUrl": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/vornamencom.pl",
"encodingFormat": "text/x-perl",
"programmingLanguage": {
"@type": "ComputerLanguage",
"name": "Perl"
},
"codeRepository": "https://www.artikelschreiber.com/opensource/dowsery/100biere/sourcecode/namesparser v1/"
}